home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / jdlib4_6.lha / APSystem / |prt.s < prev    next >
Text File  |  2008-12-10  |  12KB  |  688 lines
  1. ;---------------------------------------------------------------------
  2. ;    **    **   **   ***    ***     ****      **     ***   **   ****
  3. ;   ****   *** ***  ** **  **       ** **    ****   **     **  **  **
  4. ;  **  **  ** * **  ** **   ***     *****   **  **   ***   **  **
  5. ;  ******  **   **  ** **     **    **  **  ******     **  **  **
  6. ;  **  **  **   **  ** **  *  **    ** **   **  **  *  **  **  **  **
  7. ;  **  **  **   **   ***    ***     *****   **  **   ***   **   ****
  8. ;---------------------------------------------------------------------
  9. ; JD prt_extension source code, V1.1  Last change 20.05.1993
  10. ; By Joerg Dommermuth
  11. ; AMOS and AMOS Compiler (c) Europress Software 1991
  12. ; To be used with AMOSPro V1.12 and over
  13. ;--------------------------------------------------------------------- 
  14. ; This file is public domain
  15. ;---------------------------------------------------------------------
  16.  
  17.  
  18. ExtNb    equ    21-1
  19.  
  20. Version    MACRO
  21.     dc.b    "1.1"
  22.     ENDM
  23.  
  24.     Incdir    "dh0:AMOS_Pro/Tutorial/Extensions/"
  25.      Include    "|AMOS_Includes.s"
  26.  
  27. Start:    dc.l    C_Tk-C_Off
  28.     dc.l    C_Lib-C_Tk
  29.     dc.l    C_Title-C_Lib
  30.     dc.l    C_End-C_Title
  31.     dc.w    0    
  32.  
  33. C_Off:    dc.w    (L1-L0)/2,(L2-L1)/2,(L3-L2)/2,(L4-L3)/2
  34.     dc.w    (L5-L4)/2,(L6-L5)/2,(L7-L6)/2,(L8-L7)/2
  35.     dc.w    (L9-L8)/2,(L10-L9)/2,(L11-L10)/2,(L12-L11)/2
  36.     dc.w    (L13-L12)/2,(L14-L13)/2,(L15-L14)/2,(L16-L15)/2
  37.     dc.w    (L17-L16)/2,(L18-L17)/2,(L19-L18)/2,(L20-L19)/2
  38.     dc.w    (L21-L20)/2,(L22-L21)/2,(L23-L22)/2,(L24-L23)/2
  39.     dc.w    (L25-L24)/2,(L26-L25)/2,(L27-L26)/2,(L28-L27)/2
  40.     dc.w    (L29-L28)/2,(L30-L29)/2,(L31-L30)/2,(L32-L31)/2
  41.     dc.w    (L33-L32)/2,(L34-L33)/2,(L35-L34)/2,(L36-L35)/2
  42.     dc.w    (L37-L36)/2,(L38-L37)/2,(L39-L38)/2,(L40-L39)/2
  43.     dc.w    (L41-L40)/2,(L42-L41)/2,(L43-L42)/2,(L44-L43)/2
  44.     dc.w    (L45-L44)/2,(L46-L45)/2,(L47-L46)/2,(L48-L47)/2
  45.     dc.w    (L49-L48)/2,(L50-L49)/2,(L51-L50)/2,(L52-L51)/2
  46.     dc.w    (L53-L52)/2,(L54-L53)/2,(L55-L54)/2,(L56-L55)/2
  47.     dc.w    (L57-L56)/2,(L58-L57)/2,(L59-L58)/2,(L60-L59)/2
  48.     dc.w    (L61-L60)/2,(L62-L61)/2,(L63-L62)/2,(L64-L63)/2
  49.  
  50. C_Tk:    dc.w     1,0
  51.     dc.b     $80,-1
  52.  
  53.     dc.w    -1,L_reset
  54.     dc.b    "prt rese","t"+$80,"V2",-1
  55.     dc.w    -1,L_initialize
  56.     dc.b    "prt ini","t"+$80,"V2",-1
  57.     dc.w    -1,L_italicson
  58.     dc.b    "prt italic","s"+$80,"V2",-1
  59.     dc.w    -1,L_italicsoff
  60.     dc.b    "prt italics of","f"+$80,"V2",-1
  61.     dc.w    -1,L_underlineon
  62.     dc.b    "prt unde","r"+$80,"V2",-1
  63.     dc.w    -1,L_underlineoff
  64.     dc.b    "prt under of","f"+$80,"V2",-1
  65.     dc.w    -1,L_boldon
  66.     dc.b    "prt bol","d"+$80,"V2",-1
  67.     dc.w    -1,L_boldoff
  68.     dc.b    "prt bold of","f"+$80,"V2",-1
  69.     dc.w    -1,L_eliteon
  70.     dc.b    "prt elit","e"+$80,"V2",-1
  71.     dc.w    -1,L_eliteoff
  72.     dc.b    "prt elite of","f"+$80,"V2",-1
  73.     dc.w    -1,L_fineon
  74.     dc.b    "prt fin","e"+$80,"V2",-1
  75.     dc.w    -1,L_fineoff
  76.     dc.b    "prt fine of","f"+$80,"V2",-1
  77.     dc.w    -1,L_enlargedon
  78.     dc.b    "prt enlarge","d"+$80,"V2",-1
  79.     dc.w    -1,L_enlargedoff
  80.     dc.b    "prt enlarged of","f"+$80,"V2",-1
  81.     dc.w    -1,L_shadowon
  82.     dc.b    "prt shado","w"+$80,"V2",-1
  83.     dc.w    -1,L_shadowoff
  84.     dc.b    "prt shadow of","f"+$80,"V2",-1
  85.     dc.w    -1,L_doublestrikeon
  86.     dc.b    "prt doubl","e"+$80,"V2",-1
  87.     dc.w    -1,L_doublestrikeoff
  88.     dc.b    "prt double of","f"+$80,"V2",-1
  89.     dc.w    -1,L_NLQon
  90.     dc.b    "prt nl","q"+$80,"V2",-1
  91.     dc.w    -1,L_NLQoff
  92.     dc.b    "prt nlq of","f"+$80,"V2",-1
  93.     dc.w    -1,L_superscripton
  94.     dc.b    "prt supe","r"+$80,"V2",-1
  95.     dc.w    -1,L_superscriptoff
  96.     dc.b    "prt super of","f"+$80,"V2",-1
  97.     dc.w    -1,L_subscripton
  98.     dc.b    "prt su","b"+$80,"V2",-1
  99.     dc.w    -1,L_subscriptoff
  100.     dc.b    "prt sub of","f"+$80,"V2",-1
  101.     dc.w    -1,L_setUS
  102.     dc.b    "prt set u","s"+$80,"V2",-1
  103.     dc.w    -1,L_setFrench
  104.     dc.b    "prt set frenc","h"+$80,"V2",-1
  105.     dc.w    -1,L_setGerman
  106.     dc.b    "prt set germa","n"+$80,"V2",-1
  107.     dc.w    -1,L_setUK
  108.     dc.b    "prt set u","k"+$80,"V2",-1
  109.     dc.w    -1,L_setDanishI
  110.     dc.b    "prt set danish","i"+$80,"V2",-1
  111.     dc.w    -1,L_setSweden
  112.     dc.b    "prt set swede","n"+$80,"V2",-1
  113.     dc.w    -1,L_setItalian
  114.     dc.b    "prt set italia","n"+$80,"V2",-1
  115.     dc.w    -1,L_setSpanish
  116.     dc.b    "prt set spanis","h"+$80,"V2",-1
  117.     dc.w    -1,L_setJapanese
  118.     dc.b    "prt set japanes","e"+$80,"V2",-1
  119.     dc.w    -1,L_setNorweign
  120.     dc.b    "prt set norg","e"+$80,"V2",-1
  121.     dc.w    -1,L_setDanishII
  122.     dc.b    "prt set danishi","i"+$80,"V2",-1
  123.     dc.w    -1,L_propon
  124.     dc.b    "prt pro","p"+$80,"V2",-1
  125.     dc.w    -1,L_propoff
  126.     dc.b    "prt prop of","f"+$80,"V2",-1
  127.     dc.w    -1,L_leftjustify
  128.     dc.b    "prt ljustif","y"+$80,"V2",-1
  129.     dc.w    -1,L_rightjustiy
  130.     dc.b    "prt rjusti","y"+$80,"V2",-1
  131.     dc.w    -1,L_fulljustify
  132.     dc.b    "prt fjustif","y"+$80,"V2",-1
  133.     dc.w    -1,L_center
  134.     dc.b    "prt cente","r"+$80,"V2",-1
  135.     dc.w    -1,L_linespace8
  136.     dc.b    "prt lspace eigh","t"+$80,"V2",-1
  137.     dc.w    -1,L_linespace6
  138.     dc.b    "prt lspace si","x"+$80,"V2",-1
  139.     dc.w    -1,L_justifyoff
  140.     dc.b    "prt justify of","f"+$80,"V2",-1
  141.     dc.w    -1,L_plineup
  142.     dc.b    "prt pline u","p"+$80,"V2",-1
  143.     dc.w    -1,L_plinedown
  144.     dc.b    "prt pline dow","n"+$80,"V2",-1
  145.     dc.w    -1,L_lmargin
  146.     dc.b    "prt set lmargi","n"+$80,"V2",-1
  147.     dc.w    -1,L_rmargin
  148.     dc.b    "prt set rmargi","n"+$80,"V2",-1
  149.     dc.w    -1,L_tmargin
  150.     dc.b    "prt set tmargi","n"+$80,"V2",-1
  151.     dc.w    -1,L_bmargin
  152.     dc.b    "prt set bmargi","n"+$80,"V2",-1
  153.     dc.w    -1,L_cmargins
  154.     dc.b    "prt clr margin","s"+$80,"V2",-1
  155.     dc.w    -1,L_htab
  156.     dc.b    "prt set hta","b"+$80,"V2",-1
  157.     dc.w    -1,L_vtab
  158.     dc.b    "prt set vta","b"+$80,"V2",-1
  159.     dc.w    -1,L_chtab
  160.     dc.b    "prt clr hta","b"+$80,"V2",-1
  161.     dc.w    -1,L_chtabs
  162.     dc.b    "prt clr htab","s"+$80,"V2",-1
  163.     dc.w    -1,L_cvtab
  164.     dc.b    "prt clr vta","b"+$80,"V2",-1
  165.     dc.w    -1,L_cvtabs
  166.     dc.b    "prt clr vtab","s"+$80,"V2",-1
  167.     dc.w    -1,L_deftabs
  168.     dc.b    "prt set def tab","s"+$80,"V2",-1
  169.     dc.w    0
  170.  
  171. C_Lib:
  172.  
  173. ******************************************************************
  174. *        COLD START
  175. *
  176.  
  177. L0    cmp.l    #$41506578,d1
  178.     bne    L0error
  179.     movem.l    a3-a6,-(sp)
  180.     lea    JD(pc),a3
  181.     move.l    a3,ExtAdr+ExtNb*16(a5)
  182.     movem.l    (sp)+,a3-a6
  183.     moveq    #ExtNb,d0
  184.     move.w    #$110,d1
  185.     rts
  186. L0error:
  187.     moveq    #-1,d0
  188.     rts
  189.  
  190. ; data_area
  191. ;
  192. JD:
  193. prt_reset
  194.     dc.w    2
  195.     dc.b    27,'c',0
  196.     even
  197. prt_initialize
  198.     dc.w    2
  199.     dc.b    27,'1',0
  200.     even
  201. prt_italicson
  202.     dc.w    4
  203.     dc.b    27,'[3m',0
  204.     even
  205. prt_italicsoff
  206.     dc.w    5
  207.     dc.b    27,'[23m',0
  208.     even
  209. prt_underlineon
  210.     dc.w    4
  211.     dc.b    27,'[4m',0
  212.     even
  213. prt_underlineoff
  214.     dc.w    5
  215.     dc.b    27,'[24m',0
  216.     even
  217. prt_boldon
  218.     dc.w    4
  219.     dc.b    27,'[1m',0
  220.     even
  221. prt_boldoff
  222.     dc.w    5
  223.     dc.b    27,'[22m',0
  224.     even
  225. prt_eliteon
  226.     dc.w    4
  227.     dc.b    27,'[2w',0
  228.     even
  229. prt_eliteoff
  230.     dc.w    4
  231.     dc.b    27,'[1w',0
  232.     even
  233. prt_fineon
  234.     dc.w    4
  235.     dc.b    27,'[4w',0
  236.     even
  237. prt_fineoff
  238.     dc.w    4
  239.     dc.b    27,'[3w',0
  240.     even
  241. prt_enlargedon
  242.     dc.w    4
  243.     dc.b    27,'[6w',0
  244.     even
  245. prt_enlargedoff
  246.     dc.w    4
  247.     dc.b    27,'[5w',0
  248.     even
  249. prt_shadowon
  250.     dc.w    5
  251.     dc.b    27,'[6"z',0
  252.     even
  253. prt_shadowoff
  254.     dc.w    5
  255.     dc.b    27,'[5"z',0
  256.     even
  257. prt_doublestrikeon
  258.     dc.w    5
  259.     dc.b    27,'[4"z',0
  260.     even
  261. prt_doublestrikeoff
  262.     dc.w    5
  263.     dc.b    27,'[3"z',0
  264.     even
  265. prt_NLQon
  266.     dc.w    5
  267.     dc.b    27,'[2"z',0
  268.     even
  269. prt_NLQoff
  270.     dc.w    5
  271.     dc.b    27,'[1"z',0
  272.     even
  273. prt_superscripton
  274.     dc.w    4
  275.     dc.b    27,'[2v',0
  276.     even
  277. prt_superscriptoff
  278.     dc.w    4
  279.     dc.b    27,'[1v',0
  280.     even
  281. prt_subscripton
  282.     dc.w    4
  283.     dc.b    27,'[4v',0
  284.     even
  285. prt_subscriptoff
  286.     dc.w    4
  287.     dc.b    27,'[3v',0
  288.     even
  289. prt_setUS
  290.     dc.w    3
  291.     dc.b    27,'(B',0
  292.     even
  293. prt_setFrench
  294.     dc.w    3
  295.     dc.b    27,'(R',0
  296.     even
  297. prt_setGerman
  298.     dc.w    3
  299.     dc.b    27,'(K',0
  300.     even
  301. prt_setUK
  302.     dc.w    3
  303.     dc.b    27,'(A',0
  304.     even
  305. prt_setDanishI
  306.     dc.w    3
  307.     dc.b    27,'(E',0
  308.     even
  309. prt_setSweden
  310.     dc.w    3
  311.     dc.b    27,'(H',0
  312.     even
  313. prt_setItalian
  314.     dc.w    3
  315.     dc.b    27,'(Y',0
  316.     even
  317. prt_setSpanish
  318.     dc.w    3
  319.     dc.b    27,'(Z',0
  320.     even
  321. prt_setJapanese
  322.     dc.w    3
  323.     dc.b    27,'(J',0
  324.     even
  325. prt_setNorweign
  326.     dc.w    3
  327.     dc.b    27,'(6',0
  328.     even
  329. prt_setDanishII
  330.     dc.w    3
  331.     dc.b    27,'(C',0
  332.     even
  333. prt_propon
  334.     dc.w    4
  335.     dc.b    27,'[2p',0
  336.     even
  337. prt_propoff
  338.     dc.w    4
  339.     dc.b    27,'[1p',0
  340.     even
  341. prt_leftjustify
  342.     dc.w    5
  343.     dc.b    27,'[5 F',0
  344.     even
  345. prt_rightjustiy
  346.     dc.w    5
  347.     dc.b    27,'[7 F',0
  348.     even
  349. prt_fulljustify
  350.     dc.w    5
  351.     dc.b    27,'[6 F',0
  352.     even
  353. prt_center
  354.     dc.w    5
  355.     dc.b    27,'[2 F',0
  356.     even
  357. prt_linespace8
  358.     dc.w    4
  359.     dc.b    27,'[0z',0
  360.     even
  361. prt_linespace6
  362.     dc.w    4
  363.     dc.b    27,'[1z',0
  364.     even
  365. prt_justifyoff
  366.     dc.w    5
  367.     dc.b    27,'[0 F',0
  368.     even
  369. prt_plineup
  370.     dc.w    2
  371.     dc.b    27,'L',0
  372.     even
  373. prt_plinedown
  374.     dc.w    2
  375.     dc.b    27,'K',0
  376.     even
  377. prt_Lmargin
  378.     dc.w    3
  379.     dc.b    27,'#9',0
  380.     even
  381. prt_Rmargin
  382.     dc.w    3
  383.     dc.b    27,'#0',0
  384.     even
  385. prt_Tmargin
  386.     dc.w    3
  387.     dc.b    27,'#8',0
  388.     even
  389. prt_Bmargin
  390.     dc.w    3
  391.     dc.b    27,'#2',0
  392.     even
  393. prt_Cmargins
  394.     dc.w    3
  395.     dc.b    27,'#3',0
  396.     even
  397. prt_htab
  398.     dc.w    2
  399.     dc.b    27,'H',0
  400.     even
  401. prt_vtab
  402.     dc.w    2
  403.     dc.b    27,'J',0
  404.     even
  405. prt_Chtab
  406.     dc.w    4
  407.     dc.b    27,'[0g',0
  408.     even
  409. prt_Chtabs
  410.     dc.w    4
  411.     dc.b    27,'[3g',0
  412.     even
  413. prt_Cvtab
  414.     dc.w    4
  415.     dc.b    27,'[1g',0
  416.     even
  417. prt_Cvtabs
  418.     dc.w    4
  419.     dc.b    27,'[4g',0
  420.     even
  421. prt_deftabs
  422.     dc.w    3
  423.     dc.b    27,'#5',0
  424.     even
  425.  
  426. **********************************************************************
  427.  
  428. L1
  429. L2
  430.  
  431. get_str    equ    3
  432. L3
  433.     moveq    #2,d2
  434.     rts
  435.  
  436. L_reset    equ    4
  437. L4
  438.     Dlea    prt_reset,d3
  439.     Rbra    get_str
  440. L_initialize    equ    5
  441. L5
  442.     Dlea    prt_initialize,d3
  443.     Rbra    get_str
  444. L_italicson    equ    6
  445. L6
  446.     Dlea    prt_italicson,d3
  447.     Rbra    get_str
  448. L_italicsoff    equ    7
  449. L7
  450.     Dlea    prt_italicsoff,d3
  451.     Rbra    get_str
  452. L_underlineon    equ    8
  453. L8
  454.     Dlea    prt_underlineon,d3
  455.     Rbra    get_str
  456. L_underlineoff    equ    9
  457. L9
  458.     Dlea    prt_underlineoff,d3
  459.     Rbra    get_str
  460. L_boldon    equ    10
  461. L10
  462.     Dlea    prt_boldon,d3
  463.     Rbra    get_str
  464. L_boldoff    equ    11
  465. L11
  466.     Dlea    prt_boldoff,d3
  467.     Rbra    get_str
  468. L_eliteon    equ    12
  469. L12
  470.     Dlea    prt_eliteon,d3
  471.     Rbra    get_str
  472. L_eliteoff    equ    13
  473. L13
  474.     Dlea    prt_eliteoff,d3
  475.     Rbra    get_str
  476. L_fineon    equ    14
  477. L14
  478.     Dlea    prt_fineon,d3
  479.     Rbra    get_str
  480. L_fineoff    equ    15
  481. L15
  482.     Dlea    prt_fineoff,d3
  483.     Rbra    get_str
  484. L_enlargedon    equ    16
  485. L16
  486.     Dlea    prt_enlargedon,d3
  487.     Rbra    get_str
  488. L_enlargedoff    equ    17
  489. L17
  490.     Dlea    prt_enlargedoff,d3
  491.     Rbra    get_str
  492. L_shadowon    equ    18
  493. L18
  494.     Dlea    prt_shadowon,d3
  495.     Rbra    get_str
  496. L_shadowoff    equ    19
  497. L19
  498.     Dlea    prt_shadowoff,d3
  499.     Rbra    get_str
  500. L_doublestrikeon    equ    20
  501. L20
  502.     Dlea    prt_doublestrikeon,d3
  503.     Rbra    get_str
  504. L_doublestrikeoff    equ    21
  505. L21
  506.     Dlea    prt_doublestrikeoff,d3
  507.     Rbra    get_str
  508. L_NLQon    equ    22
  509. L22
  510.     Dlea    prt_NLQon,d3
  511.     Rbra    get_str
  512. L_NLQoff    equ    23
  513. L23
  514.     Dlea    prt_NLQoff,d3
  515.     Rbra    get_str
  516. L_superscripton    equ    24
  517. L24
  518.     Dlea    prt_superscripton,d3
  519.     Rbra    get_str
  520. L_superscriptoff    equ    25
  521. L25
  522.     Dlea    prt_superscriptoff,d3
  523.     Rbra    get_str
  524. L_subscripton    equ    26
  525. L26
  526.     Dlea    prt_subscripton,d3
  527.     Rbra    get_str
  528. L_subscriptoff    equ    27
  529. L27
  530.     Dlea    prt_subscriptoff,d3
  531.     Rbra    get_str
  532. L_setUS    equ    28
  533. L28
  534.     Dlea    prt_setUS,d3
  535.     Rbra    get_str
  536. L_setFrench    equ    29
  537. L29
  538.     Dlea    prt_setFrench,d3
  539.     Rbra    get_str
  540. L_setGerman    equ    30
  541. L30
  542.     Dlea    prt_setGerman,d3
  543.     Rbra    get_str
  544. L_setUK    equ    31
  545. L31
  546.     Dlea    prt_setUK,d3
  547.     Rbra    get_str
  548. L_setDanishI    equ    32
  549. L32
  550.     Dlea    prt_setDanishI,d3
  551.     Rbra    get_str
  552. L_setSweden    equ    33
  553. L33
  554.     Dlea    prt_setSweden,d3
  555.     Rbra    get_str
  556. L_setItalian    equ    34
  557. L34
  558.     Dlea    prt_setItalian,d3
  559.     Rbra    get_str
  560. L_setSpanish    equ    35
  561. L35
  562.     Dlea    prt_setSpanish,d3
  563.     Rbra    get_str
  564. L_setJapanese    equ    36
  565. L36
  566.     Dlea    prt_setJapanese,d3
  567.     Rbra    get_str
  568. L_setNorweign    equ    37
  569. L37
  570.     Dlea    prt_setNorweign,d3
  571.     Rbra    get_str
  572. L_setDanishII    equ    38
  573. L38
  574.     Dlea    prt_setDanishII,d3
  575.     Rbra    get_str
  576. L_propon    equ    39
  577. L39
  578.     Dlea    prt_propon,d3
  579.     Rbra    get_str
  580. L_propoff    equ    40
  581. L40
  582.     Dlea    prt_propoff,d3
  583.     Rbra    get_str
  584. L_leftjustify    equ    41
  585. L41
  586.     Dlea    prt_leftjustify,d3
  587.     Rbra    get_str
  588. L_rightjustiy    equ    42
  589. L42
  590.     Dlea    prt_rightjustiy,d3
  591.     Rbra    get_str
  592. L_fulljustify    equ    43
  593. L43
  594.     Dlea    prt_fulljustify,d3
  595.     Rbra    get_str
  596. L_center    equ    44
  597. L44
  598.     Dlea    prt_center,d3
  599.     Rbra    get_str
  600. L_linespace8    equ    45
  601. L45
  602.     Dlea    prt_linespace8,d3
  603.     Rbra    get_str
  604. L_linespace6    equ    46
  605. L46
  606.     Dlea    prt_linespace6,d3
  607.     Rbra    get_str
  608. L_justifyoff    equ    47
  609. L47
  610.     Dlea    prt_justifyoff,d3
  611.     Rbra    get_str
  612. L_plineup    equ    48
  613. L48
  614.     Dlea    prt_plineup,d3
  615.     Rbra    get_str
  616. L_plinedown    equ    49
  617. L49
  618.     Dlea    prt_plinedown,d3
  619.     Rbra    get_str
  620. L_Lmargin    equ    50
  621. L50
  622.     Dlea    prt_Lmargin,d3
  623.     Rbra    get_str
  624. L_Rmargin    equ    51
  625. L51
  626.     Dlea    prt_Rmargin,d3
  627.     Rbra    get_str
  628. L_Tmargin    equ    52
  629. L52
  630.     Dlea    prt_Tmargin,d3
  631.     Rbra    get_str
  632. L_Bmargin    equ    53
  633. L53
  634.     Dlea    prt_Bmargin,d3
  635.     Rbra    get_str
  636. L_Cmargins    equ    54
  637. L54
  638.     Dlea    prt_Cmargins,d3
  639.     Rbra    get_str
  640. L_htab    equ    55
  641. L55
  642.     Dlea    prt_htab,d3
  643.     Rbra    get_str
  644. L_vtab    equ    56
  645. L56
  646.     Dlea    prt_vtab,d3
  647.     Rbra    get_str
  648. L_Chtab    equ    57
  649. L57
  650.     Dlea    prt_Chtab,d3
  651.     Rbra    get_str
  652. L_Chtabs    equ    58
  653. L58
  654.     Dlea    prt_Chtabs,d3
  655.     Rbra    get_str
  656. L_Cvtab    equ    59
  657. L59
  658.     Dlea    prt_Cvtab,d3
  659.     Rbra    get_str
  660. L_Cvtabs    equ    60
  661. L60
  662.     Dlea    prt_Cvtabs,d3
  663.     Rbra    get_str
  664. L_deftabs    equ    61
  665. L61
  666.     Dlea    prt_deftabs,d3
  667.     Rbra    get_str
  668.  
  669. *******    error routines
  670. L62
  671. L63
  672.  
  673. L64
  674.  
  675. ******* TITLE MESSAGE
  676. C_Title:
  677.     dc.b    "AMOSPro Prt_Extension V "
  678.     Version
  679.     dc.b    0,"$VER: "
  680.     Version
  681.     dc.b    0
  682.     even
  683.  
  684. ******* END OF THE EXTENSION
  685. C_End:    dc.w    0
  686.     even
  687.     
  688.